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{MODULE OPCSOPCOMLIB (IDENT = 'V04-000") = TITLE ‘Facility-wide Library module’ 

i 
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ed 
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'@ COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

't ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE 

; Y IN ACCORDANCE WITH THE TERMS OF S 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. TH 
t® COPIES THEREOF MAY NOT BE PROVIDED OR OTHER 
'# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF 


eo 
® 
® 
® 
& 
Ww 
we 
® 
® 
® 
ie TRANSFERRED. * 
a 
® 
® 
® 
* 
® 
cs 
® 
® 
® 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:. ORPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ie 
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FACILITY: OPCOM = Operator communication facility 
ABSTRACT: BLISS Library for OPCOM facility 
AUTHOR: CW Hobbs 
CREATED: 24-Aug-1983 


MODIFIED BY: 


v03-003 CWH3003 CW Hobbs 12-Aug-1984 
Remove REPLY and SOFTWARE operators from the known List 


v03-002 CWH3002 CW Hobbs 16-Sep-1983 ’ 
Move non-facility EXTERNAL ROUTINE declarations to this file 
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i 
: Include the data structure definitions from external files 


LIBRARY 'SYSS$LIBRARY:L1B'; 

*LIBS:OPCDEF TMP’; ! New message definitions 
REQUIRE *L1B$:OPCOMDEF ' ; 
REQUIRE *SHRLIBS$:CLUMBX*; 
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ENVIRONMENT: VAX/VMS User mode 
| 
} 
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1 
; Define a compile time variable to be used as a table origin by several of the macros. 


COMPILETIME 


1B-sep-1984 4 


1 Bliss-32 V 
-Sep-1984 


33:17:56 


counter = 0; 


Define Literal values 


LITERAL 


max _dev_nam = 64, ! Maximum Length of a dev name 

; Define volume protection masks that are used to control access to the operator mailbox. 

led writ = ZX'OFFOF', ' Allow read and write access 

read. _nowrite = ZX'OFFFF', ! Allow read, don't allow write 

Other useful Literals 

true = 1, ' BOOLEAN value 

false = 0, ' BOOLEAN value 

on =1, ' Bit value 

off = 0, ! Bit value 

; Define the masks containing all known operators 

known_attn_mask1 = (OPCSM_NM_CENTRL OR OPCSM_NM_PRINT OR PCSM_NM_TAPES OR 
OPCSM_NM-DISKS OR OPCSM_NM_DEVICE OR PCSM_NM_CARDS OR 
OPCSM_NM_NTWORK OR OPCSM_NM_CLUSTER OR OPCSM_NM_SECURITY OR 
OPCSM_NM_REPLY OR OPCSM_NM_SOFTWARE OR OPC Sn WF ILL 11 OR 
OPCSM_NM_OPER1 OR OPCSM_NM_OPER2 OR OPCSM_NM_OPER3 OR 
PCSM_NM_OPER4 OR OPCSM_NM_OPERS OR OPCSM_NM_OPER6 OR 
OPCSM_NM_OPER7 OR OPCSM_NM_OPER8 OR OPCSM_NM_OPERO OR 
OPCSM_NM_OPER10 OR OPCSM_NM_OPER11 OR OPC$M_NM_OPER12), 

known_attn_mask2 = 0; 


! 
Define routine Linkages 


LINKAGE 


alloc_csd = JSB (REGISTER=1; REGISTER=2) 

ie E (3) NOTUSED 44,5,¢.7.8,9,10,11), 
csp_cail = JSB (REGISTER=2) 
dalloc_csd = JSB (REGISTER® 

NOPRE im £02 43) aig Tuseo (4,5,6,7,8,9,10,11), 
jsb_r0r1 = JSB (REGISTER= 


R=1) 
PRESERVE ihe: NOTUSED (2,3.4,5.6,7,8,9,10.11); 
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-Sep-1 -$255$DUA2 
; 1046 : : 
: 1 } Declare some common data structure initialization macros : 
; 4 MACRO 3 
: } ° } Define shorthand for a single initialized dynamic string desc ‘ 
; = g Sdyn_str_desc ! Static declaration : 
; = 3 
3; & 10546 BLOCK Cdsc$k_d_bin,BYTE) $ 
; 4 1055 PRESET (Cdsc$b_cl - = dsc$k_class_d, . 
741 dsc$b_dty = dsc$k-dtype-t. 3 
741 dsc$u-length) = 0, 3 
; fm : . dsc$a_pointer) = 0 ) : 
ie ’ ; 
3 - 190) Sdyn_str_desc_init (desci) ! Run-time initialization F 
3 = 3 
Hi: si" 2 
3: 1065 desc = (desci) : VECTOR (2, LONG, ; 
; 1208 t8 = enchie yn. str_template : VECTOR [2, LONG); ‘ 
; #106 desc = ,tmpl 93; : 3 
; ® 1068 gone = .tmpl (1 : 
| +s 34 3 
; 10h ' 
; 34 : Define macro for a single initialized static string desc. 3 
3 . da $stat_str_desc (L. Aa ! Static declaration, init to length and address ; 
i. 1076 BLOCK Cdsc$k,s_bin.BYTEI ; 
3; #107 PRESET( Cdsc Sb7c = dsc$k_class_s, 3 
3; Hy 4 sc “Seees = dsc$k_dtype_t, 3 
3; # 107 dsc$w_length]) = (L), 3 
; ™ 1080 dsc$a_pointer) = (A) ) F 
; Hirt z, : 
; " 1088 $string_desc (str) ! Static declaration, init to length and address ; 
: 1088 BLOCK Cdsc$k_s bin BYTE : 
7 8 1086 PRESET ( dscSb- class = dsc$k_class_s, 
3; 4 108 sc$b_dtype = dsc$k dtype.t 
; #1088 dsc$w-length]_ = (ZCHARCOUNT™(STR)), 
; # : 9 . dsc$a_pointer]) = (UPLIT BYTE (STR)) ) | 
; 1091 ; 
3 . ‘ 4 $stat_str_desc_init (desci, L, A) ! Run-time initialization | 
:m1 BEGIN 
3 @ 1095 BIND 
7:41 desc = (desci) : BLOCK C, BYTE); 
741 desc [dsc$b_class = dsc$k_class_s; 
741 desc Cdsc$b_dtype = dsc$k_dtype_t; 
741 gose setter = (L); 
7411 gose dsc$a_pointer] = (A); 
SM tide | 


| 
1f-Sen-1984 Be Mees bSpOASBsCOpCOM: snc TAPCOML1B.832:1°%° 3 


1 | 
2 $str_desc_set (desci, L, A) ! Copy new Length and pointer fields (both static and dynamic) 
” BEGIN 
™ BIND 
M desc = (desci)_ : BLOCK C, BYTE); 
M desc [dsc$w_length] = (L); 
. gesc dsc$a_pointer] = (A); 


And shorthand for just a descriptor declaration 
$desc_block 


= 
SL.0CK Cdsc$k_s_bln, BYTE) 


Short form for byte vector reference 
$ref_bvector 


a ak tk a a a ak a a ai i kk at at at a St tS Ss SS SS 2s SS Sn Ss SS Ls SS Ss Ss Ls os Ss 


REF $bvector 


| 
| 
| 
Short form for byte block reference 
$ref_bblock k 
REF $bblock 


uw WMO NOME OOO NOP UNOODS ee 
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STRUCTURE 

36 $bvector CI; NJ = 

* CN) 

8 ($bvector+1)<0,8,0>; 

io r 

41 ! SIGNAL_STOP a condition assuming no return. LIBSSTOP is not 

¢§ ' supposed to return, but BLISS doesn't know this, so we block further 

re flow here. This will generate better code for us. 

45 CRO 
. 28 $signal_stop () 

t = 

Mm 1148 BEGIN 
‘a 49 LINKAGE 
m 1150 LNK = CALL : PRESERVE (0,1,2.3.4.5.6.7,.8.9,10,11); 
m 1151 EXTERNAL ROUT 
™ 2g LIBSSTOP : ADDRESSING_MODE (GENERAL) LNK NOVALUE; 
iM 2 ae! 
mi “ 
x 56 LIBSSTOP (ZREMAINING); 
m 115 RETURN (.RO); 
m 1158 
Mm 1159 END 


"7 
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> 1160 a; : 
>; ~=6.1161 : 
: 1188 1+ : : 
: 1107 : SIGNAL a condition and return. : 
; 1165 MACRO | 
: 1198 $signal_return (code) | : 
3m 116 = : 
; M1168 BEGIN ‘ 
3; # 1192 LOCAL : 
; 4 1170 temp; : 
3; 41171 : 
; 1176 temp = » pepe’ ! Need to avoid multiple calls, etc ‘ 
34117 8 $1G (. temp ! Perform the actual pignet of the error : 
3 4 1176 ZIF ZLENGTH GTR 1 XTHEN. m SREMAINING <FI ; 
341175 +O RETURN .temp ‘ 
3M 1178 0 . 
341177 +O ty : 
; 1178 O 3 : 
; Bt + 0 1+ ; : 
>; 6.1181 «0 ' SIGNAL a condition and continue. : 
3 a 0 t- 3 
; 1183 O CRO 3 
; 1184 0 $signal (code) : 
341185 O = : 
; 41186 0 SIGNAL ( (code) ! Perform the actual signal of the error ; 
; 41187 O ZIF XLENGTH GTR 1 XTHEN -SREMAINING %F I : 
; 1188 O %; 3 
>; 1189 0 + . 
: 13 . - Check for a logic error. If the expression is not true, then we have a problem. : 
5 1138 0 MACRO 3 
:; 1195 0 $Slogic_check (level, condition, error_code) ; 
381194 0 = 3 
3; 41195 0 ; F 
3; 41196 0 ! See if a compile time check is possible : 
3; 41197 O ' $ 
3; 4 1198 8 LIF XCTCE ((condition)) 3 
ih 1200 0 cee 
3: 1301 0 ! The condition is a cone thect ime expression. There is one special case, when the 3 
741 4 0 ' condition is the string si e)"'". This is used as an unconditional logic abort. 3 
3 : ! B7 0 If we have ‘(false)’, then yy a naked SIGNAL_STOP : 
3 : : 05 8 tr IF ZIDENTICAL (condition, (false)) : 
3 2 \ 44 SIGNAL_STOP (exch$_badlogic, 1, (error_code)) | : 
: 61209 0 ! The condition is a normal test. If it is true, print a message that the condition 3 
3 : ' 19 3 was verified during compilation. If false, generate a serious error. ‘ 
781 \¢ ZELSE | : 
3 2 ' 1? ZIF (condition) : 
: 4 1215 ZPRINT (‘assumption ‘,error_code,’ verified during compilation’) : 
3 M1216 ZELSE 3 
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ZERROR (‘assumption ‘,error_code,' is not true’) 


tFI 
tFI 


! The condition is not a compile-time constant. If the current variant calls for it, 
generate run-time code to test the assumption. 


BEGIN 
+4 NOT (condition) 


eu SIGNAL_STOP (exch$_badlogic, 1, (error_code)); 
tFI 


XFI 
{: 


' 
Message print routines 
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MACRO 
Sprint_lit (string) 


| = 
i f (dGput output (ZASCID string) 
7 $print_desc (desc) 
4 4 1OSeut_cuteut (desc) 
$print_fao (string) 
BEGIN 
iN pry ROUTINE SHARE_FAO_BUFFER; 


cut output ( 
HARE FAO BUFFER (%ASCID string 
ZYF XCENGTH GTR 1 ZTHEN , REMAINING XFI)) 
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i] 
1 Macros to manipulate queues 
MACRO 


' 
| 
| 

HELSE 

IF switch variant GEQ (Level) 
XTHEN 

| 
| 

: Initialize the header of a queue. This means make each of the 2 pointers in the header point to the header. | 


PININIPIPSNIPINIPOPIPOPOPINININI PON Pofononofngfnyfnunyd 


$queue_initialize (q_header) 
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4 : | 
: BEGIN | 
M $ BIND 
4 _gh_ = (q_header) : VECTOR (2, LONG); 

M 127 ' h_ C0] = _qh_; 

m 1998 -ah~ £9} = Shei 


741 

; # ! om 

1S ; 

: } Insert an element at the head of a queue. 

; . Squeue_insert_head (item, q_header) 

imi BEGIN 

:M 4 BUILTIN 

; 41 INSQUE; 

741 BIND 

i . : -ah_ = (q_header) : VECTOR (2, LONG); 

; ni INSQUE ((item), .qh_ £03) 

: END 

a ‘ 

3 } 0 } Insert an element at the tail of a queue. 

; 8 : o $queue_insert_tail (“tem, q header) 

Ps = 

: o : 8 BEGIN 

; 41 0 BUILTIN 

741 INSQUE; 

; 41 8 BIND 

: : \ 8 _ah_ = (q_header) : VECTOR (2, LONG); 

; ni INSQUE ((item), ._qgh_ (1)) 

: 81 END 

3 ' 8 = i, 

; 1310 i Remove the indicated element from a queue. The first parameter is the address of the element. The second 
; ’ 1 } parameter is optional. 

Pe 18 i af supplied, it is the address of a lenguerd in which to store the element removed from the queue or 0 if 
:; 61514 ! no element was present in the queve. The value of the expression is TRUE is a element was removed from the 
3 } 12 } queue and FALSE otherwise. 

: 1 i$ i If the second parameter is not supplied, the value of the expression is the address of the element removed 
3 } 3 from the queue or 0 if no element was present in the queue. 

; ! 9 Squeue_remove (q_element, element) 

>a ; BEGIN 

73” 1 

3 A 1326 D 

3; #1325 greet. = (q_element) : VECTOR (2, LONG); 

741 $ BUILTIN 

: . : RE : 

> 3 ZIF (ZNULL (element)) 

7341 ZTHEN 


—~s 
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8 ; ange REF VECTOR (2, LONG) 

“ i tee : ; 

™ BIND | 
M 5 -'. = (element) : REF VECTOR (2, LONG); 

" tI 

me IF (REMQUE (_qhead_, _T_)) | 
* THEN 
fs 9 BEGIN | 
o § } Queue was empty 
M 1344 if (ZNULL (element)? 

n 5 THEN 

* $ ELSE 

Mm 1348 (_T_ = 0; FALSE) 

Mm 1349 END 
m 1350 ELSE 

" 1 BEGIN 

# § IF (NULL (element)) 

Mm 1354 THEN 

32 ELsE’" 

* 3$ true 

m 1358 END 

m 1359 END 


! Remove an element from the head of a queue. The first parameter is the address of the queue header. The 


SSESE 


_ah_ = (q_header) : VECTOR (2, LONG]; 
ZIF (ZNULL (element)) 
THEN 
gy evour_renove (..qh_ (0)) 


| 
second parameter is optional. 
iaf supplied, it is the address of a longuere in which to store the element removed from the queue or 0 if | 
!' no element was present in the queue. The value of the expression is TRUE is a element was removed from the 
queue and FALSE otherwise. 
i If the second parameter is not supplied, the value of the expression is the address of the element removed 
371 from the queue or 0 if no element was present in the queue. 
i} Squeue_remove_head (q_header, element) | 
74 BEGIN 
yg BIND 
, 


- $queue_remove (._qh_ [0], element) 


* 


Mun 
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: Remove an element from the tail of a queue. The first parameter is the address of the queue header. The 
: second parameter is optional. 


i If supplied, it is the gdéross of a Lenguore in which to store the element removed from the queue or 0 if 

! mo element was present in the queue. The value of the expression is TRUE is a element was removed from the 
; Queue and FALSE otherwise. 
i If the second parameter is not supplied, the value of the expression is the address of the element removed 
} from the queue or 0 if no element was present in the queue. 


Squeue_remove_tail (q_header, element) 


4 = | 
isl BEGIN 
4 
" BIND 
. ah, = (q header) : VECTOR (2, LONG); 
4 RIF (ZNULL (element)) 
1} THEN 
” $Squeue_remove (._qgh_ (1]) 
i. ZELSE 
” $queve_remove (._qgh_ [1], element) 
i, aFI 
4 
La] END 

: 


Test a queue for emptiness. TRUE if the queue is empty, FALSE if the queue is not empty 
Squeue_empty (q_header) 

= 

BEGIN 


BIND 
_ah_ = (q_header) : VECTOR C2, LONG); 


_ah_ EQLA ._qh_ (0) 
END 


. 
e 
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OCD_W_ENABLECOUNT (N) = (N®2)+$BYTEOFFSET(OCD_T_COUNTVECTOR) ,0,16,1%; 


'e4¢ 


SCB_DEF 
Functional description: 


This macro will build the SCB table and the associated 
SCB‘s. Each entry in the SCB table is a pointer to 

an SCB. Each SCB describes a particular data structure. 
The table has a 1 origin, and is indexed by the data 
structure type. 


Inputs: 


DS_TYPE : Data structure type. An alphabetic 
a that is assumed to prefix all 
structure definitions and literals 
pertaining to that structure type. 


PPP ES BE EE EE EE 


NOUS WN OO OONAUE WO 


COUNT : Count of data structures of this type 
to be preallocated and inserted on 


Shh ek ek ek ek ek ek ee Sel al al alt tal tak tak, ek al ek 
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' 

Define macros specific to OPCOM functions 

MACRO 
i This next racro will allow us to examine any element 
of the count vector by just specifying its index. 
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re the its SCB look-aside List. 
188 Implicit Input: 
464 A COMPILETIME symbol, DS_TYPE_CODE, has 
$69 been declared and initialized to 1. 
re Implicit Output: 
ms A GLOBAL LITERAL defining the data 
rth structure type is declared. 
47 
138 SCB_DEF 
Mm 1474 (DS_TYPE,COUNT) = 
M 1475 GLOBAL LITERAL XNAME (DS_TYPE,*_K_TYPE') = COUNTER; 
m 147% PSECT OWN = SSCB_ENTRY; 
m 1478 SCB: $bblock CSCB_K_ SIZE) 
m 1479 PRESET ( SCB_O_SIZE) = ZNAME (DS_TYPE,'_K_SIZE"), 
M14 SCB_W_LAL_ COUNT) =C ° 
M 1481 SCB"L-FLIAK = SCB + SBYTEOFFSET (SCB_L_FLINK), 
: ? $ , SCB_L_BLINK = SCB + SBYTEOFFSET (SCB_L_FLINK) 
4 14 PSECT OWN = $SCB_TABLE; 
Mm 1485 OWN 
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} Run-time Library and other routines external to 


EXTERNAL LITERAL 
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1 
: External declarations for frequently referenced 
EXTERNAL ROUTINE 
opc$free_vm, ' 
opc$get_vm; : : 
Miscellaneous externals 


EXTERNAL 
ascid_INVALIDROCB : block C, BYTE); 
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Library Statistics 
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the facility 


asta, ROUTINE 

cli$get_value : ADDRESSING_MODE (GENERAL), ' CLI Entity value fetch 
cli$present : ADDRESSING _MODE (GENERAL) ' CLI Entity Brgcence boolean 
exeSalloc_csd : ALLOC_CSD “ADDRESSING MODE (GENERAL), | Allocate a CSD structure 
exeSchkrdacces : ADDRESSING_MODE (GENERAL), ' Check read access to pages 
exeSchkwrtacces : ADDRESSING _MODE (GENERAL) ! Check write acess 
exe$csp_ca : CSP_CALL “ADDRESSING MODE (GENERAL), | Communicate with CSP 
exeS$deaTloc_csd DALCOC_CSD ADDRESSING MODE (GENERAL), ! Release CSD structure 
exe$setopr DDRESSING_MODE (GENERAL), ' Set or clear OPR bit 

b$free_vm : ADDRESSING_MODE (GENERAL), ! Release a block of virtual memory 

Lib$get_vm ADDRESSING_MODE (GENERAL), ! Allocate a block of virtual memory 
Lib$lookup_key ADDRESSING_MODE (GENERAL), ' Look up ayyere in table 
Lib$Sput_ouftput ADDRESSING_MODE (GENERAL), ' Display a Line on SYSSOUTPUT 
Lib$sig_to_ret : ADDRESSING_MODE (GENERAL), ! Convert a signal to a return 
ots$cvt_ti_ : ADDRESSING_MODE (GENERAL), ! Convert os (decimal) to integer 
str$copy_dx : ADDRESSING_MODE (GENERAL), : Copy string of any class 
str$freeT_dx : ADDRESSING_MODE (GENERAL) ! Release dynamic string 


Symbols from external modules which need explicit declarations 


! Parameter ended with a comma 

! Parameter ended with a plus sign 

' Invalid verb 

! An explicit /NOqual for local qual 
! An explicit ay for local qual 


! An explicit /NOqual was given 

' CLI saw a blank Line and burped 
! An explicit /qual was given 

! CLI facility code 


facility routines 


ee a chunk of virtual memory 


Fr 
Allocate memory 


In a GLOBAL BIND in OPCOMDATA 


: eovresee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
; _$255$DUA28:(SYSLIBILIB.L32;1 18619 32 0 1000 00:01.8 
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; COMMAND QUALIFIERS 
; BLISS/LIBRARY=LIBS$:/LIST=LIS$: SRC$:OPCOMLIB 


3 Lexemes/CPU-Min: 
; Memory Used: 168 p 
; Library Brecenptlation Complete 
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